home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G12F / G12_HIGA.Dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.1 KB  |  113 lines
  1. global i, gno, jumplistkeyg
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 11 to 18
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set jumplistkeyg to ["G1", "G2", "G3", "G4", "G5"]
  9.   set volset to the soundLevel
  10.   if the soundEnabled = 0 then
  11.     set the soundEnabled to 1
  12.   end if
  13. end
  14.  
  15. on donextg
  16.   if (gno + 1) = 6 then
  17.     set gno to 0
  18.   end if
  19.   go(getAt(jumplistkeyg, gno + 1))
  20. end
  21.  
  22. on dobackg
  23.   if (gno - 1) = 0 then
  24.     set gno to 6
  25.   end if
  26.   go(getAt(jumplistkeyg, gno - 1))
  27. end
  28.  
  29. on doexit
  30.   sound stop 1
  31.   go("M4", "@::JMACMENU")
  32. end
  33.  
  34. on crtopen
  35.   puppetSprite(7, 1)
  36.   repeat while the stillDown
  37.     set the memberNum of sprite 7 to 15
  38.     updateStage()
  39.   end repeat
  40.   set the memberNum of sprite 7 to 14
  41.   updateStage()
  42.   puppetSprite(7, 0)
  43. end
  44.  
  45. on crtclose
  46.   puppetSprite(8, 1)
  47.   repeat while the stillDown
  48.     set the memberNum of sprite 8 to 17
  49.     updateStage()
  50.   end repeat
  51.   set the memberNum of sprite 8 to 16
  52.   updateStage()
  53.   puppetSprite(8, 0)
  54. end
  55.  
  56. on crtnext
  57.   puppetSprite(20, 1)
  58.   repeat while the stillDown
  59.     set the memberNum of sprite 20 to 23
  60.     updateStage()
  61.   end repeat
  62.   set the memberNum of sprite 20 to 22
  63.   updateStage()
  64.   puppetSprite(20, 0)
  65.   puppetSprite(1, 0)
  66. end
  67.  
  68. on crtback
  69.   puppetSprite(21, 1)
  70.   repeat while the stillDown
  71.     set the memberNum of sprite 21 to 25
  72.     updateStage()
  73.   end repeat
  74.   set the memberNum of sprite 21 to 24
  75.   updateStage()
  76.   puppetSprite(21, 0)
  77.   puppetSprite(1, 0)
  78. end
  79.  
  80. on crtzoomin
  81.   puppetSprite(23, 1)
  82.   repeat while the stillDown
  83.     set the memberNum of sprite 23 to 29
  84.     updateStage()
  85.   end repeat
  86.   set the memberNum of sprite 23 to 28
  87.   updateStage()
  88.   puppetSprite(23, 0)
  89. end
  90.  
  91. on crtzoomout
  92.   puppetSprite(23, 1)
  93.   repeat while the stillDown
  94.     set the memberNum of sprite 23 to 31
  95.     updateStage()
  96.   end repeat
  97.   set the memberNum of sprite 23 to 30
  98.   updateStage()
  99.   puppetSprite(23, 0)
  100.   puppetSprite(1, 0)
  101. end
  102.  
  103. on crtclose2
  104.   puppetSprite(22, 1)
  105.   repeat while the stillDown
  106.     set the memberNum of sprite 22 to 27
  107.     updateStage()
  108.   end repeat
  109.   set the memberNum of sprite 22 to 26
  110.   updateStage()
  111.   puppetSprite(22, 0)
  112. end
  113.